home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / CineMorph / PrevActive.cmorph < prev    next >
Text File  |  1996-03-02  |  386b  |  29 lines
  1. /*
  2.  * Arexx program for CineMorph 2.0
  3.  *
  4.  * Activate previous point in the current grid.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. GetStatus GridSize
  12. PARSE VAR result gridw gridh
  13.  
  14. GetStatus ActivePoint
  15. PARSE VAR result ax ay
  16.  
  17. ax = ax - 1
  18. IF ax < 0 THEN DO
  19.    ax = gridw - 1
  20.    ay = ay - 1
  21.    IF ay < 0 THEN DO
  22.       ay = gridh - 1
  23.       END
  24.    END
  25.  
  26. ActivePoint ax ay
  27.  
  28. EXIT
  29.